load("02_15_m5s_forum_apr15_comment.RData")

load("02_15_m5s_forum_apr15_thread.RData")

load("02_15_m5s_forum_apr15_author_omega.RData")

library(openssl)
author_omega$id <- md5(author_omega$id)
author_omega$name <- md5(author_omega$name)
thread$authorUrl <- md5(thread$authorUrl)
comment$authorUrl <- md5(comment$authorUrl)

save(author_omega, file = "02_15_m5s_forum_apr15_author_omega_anonymised.RData")
save(thread, file = "02_15_m5s_forum_apr15_thread_anonymised.RData")
save(comment, file = "02_15_m5s_forum_apr15_comment_anonymised.RData")



